home *** CD-ROM | disk | FTP | other *** search
/ Amiga Developer CD 2.1 / Amiga Developer CD v2.1.iso / CD32 / CD32_Support / examples / SA_Examples / cd / CDTest / DataPlay.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-08-31  |  571 b   |  29 lines
  1.  /* Data Play */
  2.  
  3. /*
  4. This is a supplement to the Data.cd script.  The purpose of this script
  5. is to run along side the data.cd script and read a 512 KB data segment.
  6. */
  7.  
  8. Address CD.2
  9. OPTIONS RESULTS
  10.  
  11. PARSE arg offSet
  12. offSet = strip(offSet)
  13.  
  14. loops = 8
  15. segLength = 512 * 1024
  16.  
  17. say 'Reading' ((segLength * loops) / 1048576) 'MB in 512 KB chunks.'
  18.  
  19. tOffSet = offSet
  20. do i = 1 to loops
  21.   READ tOffSet segLength
  22.   tOffSet = tOffSet + segLength
  23. end
  24.  
  25. /* say '*** DATA PLAY is done executing ***' */
  26.  
  27. QUIT   /* Quit from CDTEST application */
  28. exit   /* Quit from DataPlay script */
  29.